home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 46 / Amiga Format CD46 (1999-10-20)(Future Publishing)(GB)[!][issue 1999-12].iso / -in_the_mag- / reader_requests / scilab / demos / bike / bike.dem < prev    next >
Text File  |  1999-09-16  |  1KB  |  40 lines
  1. // This is just a graphic demo of the bike
  2. mode(0);
  3. xbasc();
  4. path='SCI/demos/bike/';
  5.  
  6. x=read(path+'data/'+'x1.dat',46,368,"(e10.4)");
  7.  
  8. getf(path+'macros/'+'velo1.sci','c');
  9. getf(path+'macros/'+'velo2.sci','c');
  10. getf(path+'macros/'+'velo3.sci','c');
  11. getf(path+'macros/'+'velo4.sci','c');
  12. getf(path+'macros/'+'velo4p.sci','c');
  13. getf(path+'macros/'+'velo5.sci','c');
  14. getf(path+'macros/'+'velod.sci','c');
  15. getf(path+'macros/'+'velodp.sci','c');
  16. getf(path+'macros/'+'show.sci','c');
  17. demolist=['bike-1: xpoly (full wheels)';
  18.             'bike-2: param3d';
  19.             'bike-3';
  20.             'bike-4: xpoly + xgeom';
  21.             'bike-4p: xpoly + xgeom + obstacles';
  22.             'bike-5'];
  23. go_on=%t;
  24. while go_on then
  25.   num=x_choose(demolist(:,1),'Choose a bike');
  26.   if num=0 then go_on=%f;
  27.   else
  28.      select num
  29.      case 1 then xbasc();show(x(:,300:368),1,1,velo1)
  30.      case 2 then xbasc();show(x(:,300:368),1,1,velo2)
  31.      case 3 then xbasc();show(x(:,300:368),1,1,velo3)
  32.      case 4 then xbasc();show(x(:,300:368),1,1,velo4)
  33.      case 5 then xbasc();show(x(:,300:368),1,1,velo4p)
  34.      case 6 then xbasc();show(x(:,300:368),1,1,velo5)
  35.      end;
  36.   end,
  37. end
  38.  
  39.  
  40.